Dim myConn As New OleDbConnection(ConnStr)
 
Dim query As String = "SELECT * FROM [Tabelle]"
Dim adapter As New OleDbDataAdapter(query, myConn)
 
Dim insSQL As String = "INSERT INTO [Tabelle] (NeueSpalte) VALUES (?)"
Dim cmd As New OleDbCommand(insSQL, myConn)
cmd.Parameters.Add("@p1", OleDbType.Double, 20, "NeueSpalte")
adapter.InsertCommand = cmd
 
Try
    myConn.Open()
    adapter.Update(dt)
Catch ex As Exception
     MessageBox.Show(ex.Source + ": " + ex.Message)
Finally
     myConn.Close()
End Try

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender