VB6.0を使ってadoでaccessのデータベースに接続し、VB6.0のフォームのテキストボックスにselectしたデータを表示させようとしているのですが、うまくいきません。どなたかご助力いただけませんか？

Dim cnn As New ADODB.Connection
Dim lstrPath As String
Dim RS As New ADODB.Recordset
Dim lstrSQL As String

Private Sub FrmJishamei_Load()
‘ 接続

Set RS = New ADODB.Recordset
lstrPath = App.Path & “\kokyaku-sys.mdb”
cnn.ConnectionString “Provider = Microsoft.Jet.OLEDB.3.51;Data Source=” & lstrPath & “;”
RS.Open

lstrSQL = “select JTxtYagou,JTxtYubin,JTxtJyu1,JTxtJyu2,JTxtTel,JTxtFax,JTxtDaihyosha,JTxtBank,JTxtSiten,JCbiKouzashu,JTxtKouzaNo,JCbiKouzaMeigi from Jishamei where id = 1”
RS.Open lstrSQL, cnn, adOpenStatic

‘レコード取得,表示

TxtYagou.Text = RS.fields(0)
TxtYubin.Text = RS.fields(1)
TxtJyu1.Text = RS.fields(2)
TxtJyu2.Text = RS.fields(3)
TxtTel.Text = RS.fields(4)
TxtFax.Text = RS.fields(5)
TxtDaihyosha.Text = RS.fields(6)
TxtBank.Text = RS.fields(7)
TxtSiten.Text = RS.fields(8)
TxtCbiKouzashu.Text = RS.fields(9)
TxtKouzaNo.Text = RS.fields(10)
TxtKouzameigi.Text = RS.fields(11)

End Sub

エラーも帰ってこず、ただフォームが表示されるだけなのです・・・・・・・

補足おっしゃる通りです、イベントの書き方を間違えてました。
“Private Sub Form_Load”が正です。
しかし、“cnn.ConnectionString “Provider = Microsoft.Jet.OLEDB.3.51;Data Source=” & lstrPath & “;”
RS.Open”の部分で「一つ以上の必要なパラメータの値が設定されていません」とエラーが表示されてしまいます。

こちらはコードの記述が間違っているのでしょうか？それとも、私のデータベースアクセスへの考え方がまずいのでしょうか？