Private Sub Command1_Click()
Dim Cn As ADODB.Connection
Dim i As Integer
Set Cn = New ADODB.Connection
Dim p As String

p = MsgBox(“apakah data yang akan di import sudah betul ?”, vbYesNo, Me.Caption)
If p = vbYes Then

Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & FileExcel & “;Extended Properties=Excel 8.0;” _
& “Persist Security Info=False”

Cn.Execute “INSERT INTO [tblpersonil] IN ‘C:\DATABASE\RHPP.mdb’ SELECT * FROM [Sheet1$]“

Cn.Close
Set Cn = Nothing
Else
MsgBox “tidak jadi di import,silahkan periksa lagi”
End If
End Sub

Private Sub Command2_Click()
CommonDialog1.DialogTitle = “Excel File”
CommonDialog1.Filter = “Excel (*.xls)|*.xls”
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen
FileExcel = CommonDialog1.FileName
If FileExcel = “” Then Exit Sub
End Sub