Scusate ho scritto questo codice ma mi da errore

Private Sub Command1_Click()
Dim ntab As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\fornitori\fornitori.mdb"
ntab = "fornitori"
'rs.Open "SELECT * FROM " & ntab, cn
cn.Execute "INSERT INTO fornitori " & _
"(ID Fornitori , Città) " & _
" VALUES (" & _
"'" & Text1.Text & "', " & _
"'" & Text2.Text & "'" & _
")"
Form2.Show vbmodel1
Unload Me
End Sub

l'errore avviene durante l'esecuzione dell'istruzione insert into (errore di sintassi)