Ошибка несоответствия типов при использовании VBA

Question

Я использую VBA, и у меня возникает ошибка при запуске прикрепленного кода, это говорит о несоответствии типов.

Может кто-нибудь помочь мне, где найти ошибку? пожалуйста

Private Sub List1_DblClick()        
    Dim val As String
    Dim val2 As String
    Dim i As Integer

    Dim rs As ADODB.Recordset

    Set GSBMconn = New ADODB.Connection

    'Set rs = New ADODB.Recordset

    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            val = List1.List(i)

            Debug.Print (val)
            Set rs = Grid.DataSource

            rs.AddNew        

            Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cmd\cmd.mdb;Persist Security Info=False;Jet OLEDB:Database Password="

            With Adodc1
                .RecordSource = "SELECT *" & _
                                "FROM StockLevel3 " & _
                                "WHERE ItemName = '" & val & "'; "
            End With

            Set Grid.DataSource = Adodc1

            Adodc1.Refresh
        End If
    Next
End Sub