Parametri ACCESS

Sub Parametrica()
        Try
            Ds.Tables.Clear()
            Dim dt As New DataTable("ciao")
            Ds.Tables.Add(dt)
            Dim Cmd As New Odbc.OdbcCommand("Query1Incrociati", Me.OdbcConnection1)
            Cmd.CommandType = CommandType.StoredProcedure
            Cmd.Parameters.Add("Cognome", Odbc.OdbcType.Text, 50).Value = "pippo"
            Da.SelectCommand = Cmd
            Da.Fill(Ds.Tables(0))
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
        
    End Sub

PARAMETERS Cognome Text ( 255 );
TRANSFORM Min(Query1.ID_ORARIO) AS MinDiID_ORARIO
SELECT Query1.COGNOME, Query1.NOME
FROM Query1
WHERE (((Query1.COGNOME)=[COGNOME]))
GROUP BY Query1.COGNOME, Query1.NOME, Query1.COGNOME
PIVOT Query1.ID_DATA;