1: 2: 3: 4: 5:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim CNPOOLS As New SqlClient.SqlConnection("SERVER=WORKTOP;USER ID=sa;PASSWORD=Admin;INITIAL CATALOG=EZTrack;") ===> UPDATE POOLS SET Recurse = 1
1: 2: 3: 4: 5: 6: 7:
Set vdnRS = Server.CreateObject("ADODB.Recordset") vdnRS.ActiveConnection = CNPOOLS vdnRS.Source = "UPDATE POOLS SET Recurse = 1" vdnRS.CursorType = 0 vdnRS.CursorLocation = 2 vdnRS.LockType = 1 vdnRS.Open()