La stringa SQL così com'è scritta è errata.
codice:
rs.Open "SELECT Matricola FROM CaricoScarico WHERE [Società]='" & Trim(CmbSocietà.Text) & _
                "' And [Tipo]='" & Trim(CmbTipologia.Text) & _
                "' And [Matricola]>='" & Trim(lngLeggiDal) & _
                "ORDER BY Matricola'"
Se il campo Matricola è numerico dovrebbe essere :
codice:
rs.Open "SELECT Matricola FROM CaricoScarico WHERE [Società]='" & Trim(CmbSocietà.Text) & _
                "' And [Tipo]='" & Trim(CmbTipologia.Text) & _
                "' And [Matricola]>= " & Trim(lngLeggiDal) & _
                "ORDER BY Matricola"
Con le informazioni che hai fornito è tutto.
Ciao.