Bueno amigos ya encontre la solución
---Primero Agregar el DataReport
Agregar las cajas de texto, ojo aqui es importante ... en las propiedades de este donce dice Datafiel poner el nombre del campo de la tabla a llamar y asi con todas las cajas de texto.
aqui les dejo el codigo para llamar al datagrid y pasar la consulta
Código:
Option Explicit
'variables para la conexion a base de datos
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Record As ADODB.Recordset
Dim db_name, db_server, db_port, db_user, db_pass, constr As String
Private Sub Command1_Click()
Set rs = conn.Execute("select * from boletas") ' la consulta es modificable :D
If rs.EOF = False Then
Set DataReport1.DataSource = rs
DataReport1.Show
End If
End Sub
Private Sub Form_Load()
db_name = "receptor"
db_server = "pc1"
db_port = "" '3306
db_user = "root"
db_pass = "1a2b3c"
OpenServer
End Sub
Private Sub OpenServer() 'Connect MySQL Server Without ODBC setup
constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_name & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
Set conn = New ADODB.Connection
conn.Open constr
End Sub