Hey,

From what I can see this is all correct.
Code:
        Dim cn As New ADODB.Connection
        cn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";user id=admin;Jet OLEDB:Database Password=police10;"
        cn.Open()

        Dim cmd = New ADODB.Command
        Dim rs = New ADODB.Recordset

        With cmd
            .ActiveConnection = cn
            .CommandType = CommandType.Text
            .CommandText = "SELECT colTitle FROM tblSongs WHERE colArtist=?"
            .CreateParameter(, ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 40, "Beach boys")
            .Prepared = True
            rs = .Execute 
        End With
Error location is bold. It says "No value given for one or more required parameters."

Thanks,
Jessee