Having problem connect to MS Access at runtime. It is fine in IDE but got following error -2147467259 when running the code. Any idea?? 
TIA..
Code >>>>>>
Private Sub btnConnet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnet.Click
Dim cnnDB As New OleDbConnection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
cnnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=5;Jet OLEDB: Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB: Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Data Source=" & Trim(g_DBPath)
Try
cnnDB.Open()
Catch ex As Exception
MsgBox("Error connecting to database : " & g_DBPath)
End Try
cmd.ActiveConnection = cnnDB
cmd.CommandText = "SELECT member_id,last_name, first_name, middle_name, health_num, email_address FROM member " & "where last_name is not null and first_name is not null"
rs.LockType = ADODB.LockTypeEnum.adLockOptimistic
rs = cmd.Execute
With rs
If .RecordCount > 0 Then
.MoveFirst()
End If
End With
End Sub
StactTrace >>>>>>>>>>
" at System.Data.OleDb.OleDbConnection.ProcessResults(Int32 hr)
at System.Data.OleDb.OleDbConnection.InitializeProvider()
at System.Data.OleDb.OleDbConnection.Open()
at TestDBAccess.Form1.btnConnet_Click(Object sender, EventArgs e) in C:\Documents and Settings\My Documents\Visual Studio Projects\myWinApp\TestDBAccess\Form1.vb:line 94"
TIA..Code >>>>>>
Private Sub btnConnet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnet.Click
Dim cnnDB As New OleDbConnection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
cnnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=5;Jet OLEDB: Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB: Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Data Source=" & Trim(g_DBPath)
Try
cnnDB.Open()
Catch ex As Exception
MsgBox("Error connecting to database : " & g_DBPath)
End Try
cmd.ActiveConnection = cnnDB
cmd.CommandText = "SELECT member_id,last_name, first_name, middle_name, health_num, email_address FROM member " & "where last_name is not null and first_name is not null"
rs.LockType = ADODB.LockTypeEnum.adLockOptimistic
rs = cmd.Execute
With rs
If .RecordCount > 0 Then
.MoveFirst()
End If
End With
End Sub
StactTrace >>>>>>>>>>
" at System.Data.OleDb.OleDbConnection.ProcessResults(Int32 hr)
at System.Data.OleDb.OleDbConnection.InitializeProvider()
at System.Data.OleDb.OleDbConnection.Open()
at TestDBAccess.Form1.btnConnet_Click(Object sender, EventArgs e) in C:\Documents and Settings\My Documents\Visual Studio Projects\myWinApp\TestDBAccess\Form1.vb:line 94"