Занесение информации в Базу данных Access из текстовых полей - VB

Private Sub Command1_Click()
Const p As String = ",", s As String = "'"
Dim myBD As New ADODB.Connection
Dim rec As Recordset
myBD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "здесь полный путь к базе и имя базы" & ";Persist Security Info=False"
myBD.Execute "INSERT INTO tabl (field1, field2, field3) SELECT " _
& s & Text1.Text & s & p & s & Text2.Text & s & p & s & Text3.Text & s
'здесь tabl - это имя таблицы, field1, field2, field3 - это имена полей
'в таблице, а s - это константа, обозначающая символ ' т.к.
'в sql-запросах 'строки' передаются именно в '. А т.к. в TextBox-ах данные
'типа String, то и в базе поле должно быть строкового типа.
'Если поле другого типа, то при передаче данных нужно их
'преобразовывать в нужный тип встроенными в vb функциями.
myBD.Close
Set myBD = Nothing
End Sub