How Do I Import Data From Excel To Access Database Using Vb 10 ?

Try
            Dim Access As String = "|datadirectory|\datakaryawan.mdb"
            Dim Excel As String = "|datadirectory|\datakaryawanall.xls"
            Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Excel & _
        ";Extended Properties=Excel 12.0;"
            Using cn As New OleDbConnection(connect)
                Using cmd As New OleDbCommand()
                    cmd.Connection = cn
                    cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & "].[datakaryawanall] SELECT * FROM [datakaryawanall$]"
                    cn.Open()
                    cmd.ExecuteNonQuery()
                End Using
            End Using
            Me.RefreshDataView()
            Me.bersih()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try