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.
Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CurrentProject.AccessConnection Set rs = New ADODB.Recordset With rs Set .ActiveConnection = cn .Source = "SELECT * FROM jobs WHERE [SwiftTitle] = '" & Me.[cmbSwiftSelect1] & "'" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open Me.ReqPickupTime = rst.Fields("ReqPickupTime") End With Set rs = Nothing Set cn = Nothing
Join the community of 500,000 technology professionals and ask your questions.