VBA MS Access : ACE.OLEDB.12 Insert Data ke Tabel

Private Sub Command10_Click()

'Connection string for ADO.NET via OleDB

Dim connector As ADODB.Connection

Set connector = Nothing

Dim strStatement As String

strStatement = "INSERT INTO dataUsia(idusia,namaawal,namaakhir,usia)values" & "('IU00001','Steven','Nathaniel','17')"

Set connector = New ADODB.Connection

'Set connector = Nothing

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