VBA MS Access ACE.OLEDB.12.0 : Input Data Dari TextBox Form

Private Sub Command11_Click()


Dim uid As String

Dim namaawal As String

Dim namaakhir As String

Dim usia As String


uid = Text14

namaawal = Text4

namaakhir = Text2

usia = Text9


Dim connector As ADODB.Connection

Set connector = Nothing

Dim strStatement As String

strStatement = "INSERT INTO dataUsia(idusia,namaawal,namaakhir,usia)values" & "('" & uid & "','" & namaawal & "','" & namaakhir & "','" & usia & "')"

Set connector = New ADODB.Connection

connector.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\fileAccess\Database3.mdb;Persist Security Info=False"

connector.Execute strStatement

connector.Close

Set connector = Nothing







End Sub