Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open "driver={SQL Server};server=NICE-GBEFXJTDN4;uid=sa;pwd=;database=z_AngelaClassTester"

rs.Open "Select * from MethodParameters where SubClassName = '" & ClassTestUtil.cmbSubClass.Text & "' and MethodName = '" & ClassTestUtil.cmbMethod.Text & "'" & " Order by ParameterOrder", cnn, adOpenKeyset, adLockOptimistic