i have some problem loading record to the dbgrid. below is the part of the code

dim adocon as new adodb.connection
dim adors as new adodb.recordset

adocon.open ........ bla bla bla
adors.open "select * from something",adocon,, adOpenDynamic, adLockOptimistic, -1

set dbgrid1.recordsource = adors


but this code give me error that i don't understand...
please advice and some solution