مشکل با provider

[powerboy2988]

سلام چطورین؟
من مشکلی واسم تو برنامه نویسی تو access 2010 به وجود اومده که نتونستم حل کنم.
کسی پیشنهادی داره...




Dim myConnection As ADODB.Connection
Dim myRecordSet As ADODB.Recordset

Private Sub Connect()
On Error GoTo ConnectionError
MsgBox "Open Connection...."

'myConnection.Provider = "Microsoft.Access.OLEDB.10.0"
MsgBox "provider"
myConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
MsgBox "data source"
myConnection.Properties("Data Source").Value = ".\db1.accdb"
MsgBox "open"
myConnection.Open
MsgBox "Connection successfully established."
Exit Sub
ConnectionError:
MsgBox "There was an error connecting to the database. " & _
Chr(13) & Err.Number & ", " & Err.Description
End Sub

Private Sub cmdCalc_Click()
Connect
sql = "select * from history"

myRecordSet.Open sql, myConnection, , , adCmdText

If myRecordSet.EOF = False Then
MsgBox myRecordSet.MaxRecords
End If
end sub


وقتی کد بالا اجرا میشه مقدار myConnection خالیه... نمیدونم چرا..

[powerboy2988]

خیلی مشکل ضایعی داشتم!!!
new نکرده بودم object ها رو!!!!