Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Set rs1 = New adodb.Recordset FirmSubTemp = "Select UserID, [First Name], [Last Name] from [User ID] where FirmSub = '" & varTemp & "' order by [Last Name], UserID" 'sSQl = sSQl & "Where Name =" & Chr(34) & "Boby's Place" & Chr(34) rs1.Open FirmSubTemp, conn, adOpenDynamic, adLockOptimistic '================================================================================ Do Until rs1.EOF = True If rs1.EOF = False And rs1.BOF = False Then UserIDCombo.AddItem rs1.Fields("UserID") FirstName = rs1.Fields("First Name") LastName = rs1.Fields("Last Name") FirstLastName = FirstName & " " & LastName NameCombo.ColumnIndex(0) = FirstLastName End If rs1.MoveNext Loop
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.