rs1.Source = "SELECT * FROM DRIVER WHERE ID_DRIVER='" & TxtId.Text & "'"
rs1.Open
'Modifica
If Not rs1.EOF Then
TxtNome.Text = Trim(rs1("DRIVER_NAME")) & ""
CmbLun.ListIndex = RetrieveIdCust (CmbLun, rs1("LUN_ID_CUST"))

era quel frammento di codice che non capivi

rs1("LUN_ID_CUST") è un campo di tipo INTEGER