Cómo consultar los datos de un determinado intervalo en la base de datos SQL en programación VB y devolver el número de registros a las variables del programa VB

RecSet1 privado como nuevo conjunto de registros

Dim sSql As String

sSql = " SELECT* FROM Table WHERE MainID='" amp; amp; _

" UNION " amp; _

" SELECCIONE MainID, Nombre, VipID, Sexo, Nacimiento, MPhone, Teléfono, Dirección, BDate, CardID, BCoID, BPosID, UmType. , UmDiscount, UpdateTime, State, CASE WHEN State=0 ENTONCES 'No confirmado' ELSE 'Committed' FINALIZA COMO StateName FROM UserInfo DONDE MainId NO EN (SELECCIONE MainID FROM UserInfo2 WHERE MainID='" & MainID & "') AND MainID='" amp; MainID amp; "'"

Si RecSet1.State = adStateOpen Entonces RecSet1.Close

RecSet1.Open sSql, adoconn

Si no (RecSet1. BOF) Y no (RecSet1.EOF) Entonces

Me.txtCusId.text = MainID

Me.txtCusName.text = Trim(RecSet1!Name) 'Nombre del miembro

Me.TxtDel.text = Trim(RecSet1!UmDiscount) 'Descuento

Else

Me.txtCusId.text = ""

Me.txtCusName .text = ""

Me.TxtDel.text = "1"

Fin si