Artigos .NET Era assim no vb6 , agora é assim no visual studio 2008
Era assim no vb6 com sqlserver . ficou assim no visual studio 2008 com sql server.
Consulta visual studio , sqlserver 2005 feita toda via codigo sem componente data , usando a referencia Microsoft ActiveX Data Objects 2.6 Library, assim era feita no visual basic 6 com sqlserver
 
Private Function ConsultaCliente(ByVal strfone As String) As Boolean

Dim cnn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim strsql As String

cnn = New ADODB.Connection

'cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=331310;Persist Security Info=True;User ID=sa;Initial Catalog=ExemploVb1;Data Source=PT01\SQLEXPRESS"

cnn.ConnectionString = strconnectionstring()

cnn.CursorLocation = ADODB.CursorLocationEnum.adUseClient

cnn.Open()

strsql = "select * from cliente where telefone = '" & strfone & "'"

If Not cnn Is Nothing And cnn.State = ADODB.ObjectStateEnum.adStateOpen Then

rst = cnn.Execute(strsql)

If Not rst.EOF Then

If Not IsDBNull(rst.Fields("Cliente").Value) Then txtCliente.Text = Trim(rst.Fields("Cliente").Value)

If Not IsDBNull(rst.Fields("Cidade").Value) Then txtCidade.Text = Trim(rst.Fields("Cidade").Value)

Else

cnn.Close()

cnn = Nothing

End If

End If