Thanks for the info. But I tried your examples, an error occured. "The specified table does not exist", but I double check the server, I have that kind of table. I'll post the code I made. A simple code to connect to MS SQL server using eVB 3.0.

Option Explicit

Private Sub Form_Load()
Dim rs As ADOCE.Recordset
Dim constr As String
Dim i As Integer
Set cn = CreateObject("adoce.connection.3.1")
Set rs = CreateObject("adoce.recordset.3.1")
constr = "Driver={SQL Server};Server=testServer;Database=Testing;Uid=try;Pwd=test"
i = 1
mainGrid.Rows = 1
rs.Open "select * from product", constr
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
mainGrid.TextMatrix(i, 0) = rs(0)
mainGrid.TextMatrix(i, 1) = rs(1)
mainGrid.Rows = mainGrid.Rows + 1
i = i + 1
rs.MoveNext
Loop
End If
rs.Close

End Sub

Private Sub Form_OKClick()
App.End
End Sub