Очевидно, что это зависит от типа используемой вами базы данных, но в качестве аргумента пусть это будет база данных SQL Express:
Dim conn As SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Server=" & servername & ";Database=" & databasename & ";User ID=" & userid & ";Password=" & password & ";Trusted_Connection=False;")
Dim sqlstatement As String = "INSERT INTO " & table & " (ATime,AStringWithLimitedLength,AnInteger,AString)"
sqlstatement &= " VALUES (@dates,@chars,@ints,@string)"
Dim comm As New SqlClient.SqlCommand(sqlstatement, conn)
With comm.Parameters
.Add("@dates", SqlDbType.DateTime).Value = Me.Timestamp
.Add("@chars", SqlDbType.VarChar).Value = Me.Type
.Add("@ints", SqlDbType.Int).Value = Me.UserID
.Add("@string", SqlDbType.Text).Value = Me.SQL
End With
conn.Open()
comm.ExecuteNonQuery()
conn.Close()
Вы можете сделать что-то подобное с оператором обновления.Для других типов баз данных используйте OleDb вместо SqlClient.