Your application or website rely on your database to deliver information about products and services to your customers. You can’t afford to have your database lose performance, lose availability or become unresponsive – even for just a few minutes.
Dim rsItems As New ADODB.Recordset Dim conn As New Connection Set conn = New ADODB.Connection conn.Open "DSN=LP" SQL = "Select * From [Items Check] Where [Order Number]=" + Format$(Me![Order Number]) rsItems.Open SQL, conn, adOpenStatic, adLockOptimistic If Not rsItems.EOF Then rsItems.MoveFirst Do Until rsItems.EOF
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.