Hola, Yamileth!!!
Tambien puedes hacerlo de manera visual.
Pero como quieres a trvez de codigo. Tienes que hacerlo asi. Es una variante.
Primero agrgas la referencias en el menu proyecto referencias y seleccionas y marcas: Microsoft ActiveX Data Objects 2.X Library. La X es por la versio que tengas. Luego agregas de componentes el control datagrid. Luego pegas este cdigo en en el evento load del form y listo.
Dim cn as adodb.connection
Dim rs as adodb.recordset
Private Sub Form_Load()
Dim CadCn As String
CadCn = "Provider=sqloledb;UID=sa;Server=(local);Database=Tu_BD"
Set cn = New adobd.connection
Cn.ConnectionString = CadCn
Cn.Open
Set rs = New adodb.recordset
rs.cursorlocation = aduseclient
rs.cursortype = adopendynamic
rs.open "slect *from tu_consulta",cn
Set datagrid1.datasource=rs
End Sub
Saludos!!
Pdta: Cualquier duda escribeme o conectate al msn.