Qualcosa di questo tipo:
codice:
 dim ds As DataSet
Dim strConn as string ="provider"
Dim strSQL as String = "SELECT DISTINCT valore FROM tabella"
Dim objConn As New OleDbConnection(strConn)
Dim objCmd as OleDbCommand
objConn.Open()
objCmd = new OleDbCommand(strSQL, objConn)
dim MyCommand As New OledbDataAdapter(strSQL,objConn)
ds = new DataSet()
MyCommand.Fill(ds, "tabella")
objConn.Close
drop1.DataTextField="campo1" ' campo visualizzato
drop1.DataValueField="campo2" ' campo di valore
drop.DartaBind()
Ciao