dim c as new sqlconnection
dim d as new sqldataadapter
dim co as new sqlcommand
dim dt as new datatable
c.connectionstring = ...
c.open
co.connection = c
co.commandtype = storedprocedure
co.commandtext = "storedprocedurename"
co.parameters.add("@id",sqldbtype.int).value = 1
co.parameters.add("@fln",sqldbtype.varchar,50).value = "valuehere"
d.selectcommand = co
d.fill(dt)
d.fillschema(dt,source)