Visual Basic - Conexion a SQL

Hola chavos ,

No se mucho de VB, quiero hacer un prog que realice 5 conexiones a mi base de datos en SQL . La idea es simular 5 conexiones de usuario al mismo tiempo y lanzar 5 queries como una prueba de estres.

Despues de esto, obtener el tiempo que tardo cada uno de los queries.
Alguien me puede dar alguna idea de como hacerlo?

Gracias.

Hola,

Ye tengo avances, ya tengo el codigo para conectarme y un query sencillo que funciona.

Ahora quiero saber cuanto tiempo tarda en responder cada uno de los querys, como puedo medir este tiempo?

Alguna idea?., Les comparto el codigo usado, funciono bien en VB2008 version de prueba.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim cn As ADODB.Connection
'Dim rs As New ADODB.Recordset
cn = New ADODB.Connection

Dim rs As ADODB.Recordset
Dim strSQL As String
rs = New ADODB.Recordset
Dim sSelect As String

sSelect = "SELECT TOP 10 * FROM AZCO_O00100"
cn.Open("Provider=SQLNCLI; " & _
"Initial Catalog=dwh_sap; " & _
"Data Source=10.21.87.78; " & _
"integrated security=SSPI; persist security info=True;")
strSQL = "Select top 10 * from AZCO_O00100"
rs = cn.Execute(strSQL)


While Not rs.EOF = True
Combo1.Items.Add(rs.Fields(2).Value)
rs.MoveNext()
End While

End Sub