Procedimiento con parametros me da error que puede ser

C:\Documents and Settings\thosiba\My Documents\Desarollo\VS
NET\ResTransitos\Trasitos\Trasitos\Principal.vb(265): El método 'CualAno'
tiene varias definiciones con firmas idénticas.




Private Sub CualAno(ByVal cual As String)

TransitosC = New ADODB.Connection

TransitosR = New ADODB.Recordset

Dim sSqlCargoC As String

Dim transitosDT As New DataTable

Dim transitosDA As New OleDb.OleDbDataAdapter

TransitosC.CursorLocation = ADODB.CursorLocationEnum.adUseClient

TransitosC.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nbase)

sSqlCargoC = "select numero , ano , empresa , exportador , deposito from
traslados order by ano where ano = '" & cual '"

TransitosR.Open(sSqlCargoC, TransitosC, ADODB.CursorTypeEnum.adOpenKeyset,
ADODB.LockTypeEnum.adLockOptimistic)

End Sub



Gracias