database - XAMPP へのデータベース接続 VB6

Question

私は vb6 がまったく初めてで、このコードが機能しない理由を知りたいです。ランタイム 424 エラーがあります。私は何をしなければなりませんか？実行しようとするたびに。空と表示されているデータベースにアクセスできません。これがコード全体です。

    Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Private Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=db_Inventory; User=root;Password=;Option=3;"
End Sub

Private Sub Cmd_Add_Click()
 If Txt_Pname.Text = "" And Txt_Pprice.Text = "" Then
    MsgBox ("Please enter details")
 Else
    rst.Open "select * from tbl_product", db, adOpenStatic, adLockOptimistic, adCmdText
    rs.AddNew
    rs("Prod_Name") = Txt_Pname.Text
    rs("Prod_Price") = Txt_Pprice.Text
    rs.Update
    rs.Close
    MsgBox ("Product Added!")
 End If
 End Sub