Fill A Table With Data From A Database Using And Adodb Connection

Ok, so I can connect to the database without any errors, however im not sure about the syntax for filling a table.  Heres what i have so far in the pageload.  Like i said this all works with out any errors.  Thanks in advance for the help.testDS = New DataSet()

testDataTable = New DataTable("Tbl")testDataTable.Columns.Add("username")

testDataTable.Columns.Add("datecompleted")testDataTable.Columns.Add("lastfive")

testDS.Tables.Add(testDataTable)Me.dgrdSearch0.DataSource = testDS.Tables("Tbl")

 Dim Conn As Object = Server.CreateObject("ADODB.Connection")

Dim strConn = "DRIVER={SQL Server};SERVER=serverName;UID=userID;PWD=password;DATABASE=net"Dim DSNtest As String = strConn

Dim sql As String = "SELECT * FROM Tbl"

 

Conn.open(DSNtest)

 

 

 

Conn.close()