No me enlaza el DataGrid

[polielb]

tengo un DataGrid y quiero cargar los resultados de una consulta con una base de datos SQl la cual esta conectada con un DataEnvironmente, no quiero generar un Comando, lo que estoy haciendo son Consultas las cuales cambiares la parte del Where dependiendo de las opciones del Filtro

les paso el codigo

selecnormal:
Dim str As String
Dim STR1 As String
STR1 = "SELECT CodCont, CodCat, NomCategoria, CodRub, NomRubro, Codemp, NomEmpresa, CodProf, Codpues, Nombre, Apellido, COMENTARIOS , Alta, CodUsu, FechaModif, Codusu1 FROM Contacto"
If On1.Value = True Then
If NombreB = "" Then
MsgBox "Ingrese un Nombre"
Exit Sub
Else
str = STR1 + " WHERE (Nombre LIKE '" & NombreB & "%')"
Text.Text = str
GoSub consultar
End If
ElseIf On2.Value = True Then

End If

consultar:
Set Temporal = New ADODB.Recordset
If Temporal.State = 1 Then
Temporal.Close
End If
Temporal.Open str, DE.Agenda
'Set Temporal = DE.Agenda.Execute(str)
a = Temporal.RecordCount
Set DataGrid1.DataSource = DE
DataGrid1.DataMember = "Temporal"
Exit Sub
Return


Como veran trabajo con 2 String el del Select y despues le cambio el Where, el Recordset me tira resultados todo va bien lo unico que no sucede es a la hora de enlazar el resultado del Recordset con el grid ya probe Requery Refresh, DE TODO ¡¡¡¡¡ alguna sugerencia

[jrp01]

DE es un recordset?

[polielb]

DE es el DataEnvironment, pero ya lo solucione con un AdoDc



Private Sub buscar_Click() 'SOLO POR EL Y DEL NOMBRE

GoSub selecnormal
Exit Sub

selecnormal:
Dim str As String
Dim STR1 As String
STR1 = "SELECT CodCont, CodCat, NomCategoria, CodRub, NomRubro, Codemp, NomEmpresa, CodProf, Codpues, Nombre, Apellido, COMENTARIOS , Alta, CodUsu, FechaModif, Codusu1 FROM Contacto"
If On1.Value = True Then
If NombreB = "" Then
MsgBox "Ingrese un Nombre"
Exit Sub
Else
str = STR1 + " WHERE (Nombre LIKE '" & NombreB & "%')"
Text.Text = str
GoSub consultar
End If
ElseIf On2.Value = True Then

End If

consultar:
Set Temporal = New ADODB.Recordset
If Temporal.State = 1 Then
Temporal.Close
End If
Temporal.Open str, DE.Agenda 'esto lo hago para ver nomas que me devuelve
a = Temporal.RecordCount 'si me devuelve algo ok despues borrare estas 2 lineas
Ado1.CommandType = adCmdText
Ado1.RecordSource = str
Ado1.Refresh
Set DataGrid1.DataSource = Ado1
Exit Sub
Return
End Sub


pero si me sugeris alguna otra forma sin el adodc mejor porque tendria que funcionar solo con el Datagrid sin ningun control mas, pero asi me anduvo no se si habria algo mejor

[jrp01]

Lo puedes enlazar a un Recordset en el datasource, haces tu select lo mandas aun recorset y este se lo asignas al datagrid

[polielb]

eso fue lo que intente en la primera que mande arriba, con un recorset lo asigno como datamember en el Datagrid y no andubo

[jrp01]

Pon

Set DataGrid1.DataSource = Temporal

y no cierres el recordset