Dim connection As System.Data.SqlServerCe.SqlCeConnection = New SqlCeConnection( _
  "Data Source=dbase.sdf")
connection.Open()
Dim now As DateTime = DateTime.Now
Dim z As Integer
Dim y As Integer
Dim vocI As String
Dim vocG As String
 
y = tableVocab.Rows.Count
 
For z = 0 To y - 1
    vocG = DataGrid1.Item(z, 1)
    vocI = DataGrid1.Item(z, 2)
    Dim sql As String = "INSERT INTO vokabeln (id,german,italian,date,visible)" & _
      "Values('" & z & "','" & vocG & "','" & vocI & "','" & now & "','1')"
    Dim cmd As SqlCeCommand = New SqlCeCommand(sql, connection)
    cmd.ExecuteNonQuery()
Next z
 
connection.Close() 'das Close in den Try-Block zu schreiben ist nie falsch