G
Guest
The code below does not seem to work and I was wondering if anyone could tell
me why. The last line fails when I try to open the recordset.
Your help is appreciated.
Dim i As Long
Dim lngMove As Long
Dim strDateCheck As String
Dim strCreationData As String
Dim strEditDate As String
Dim sDate As String
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long, c As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.Oledb.4.0; " & _
"Data Source=\\Gresnt07\Complaints\BreakManager.mdb;"
Set rs = New ADODB.Recordset
sDate = Sheet1.Cells(2, 1).Value
rs.Open "Select tblBreaks.BrkDate, tblBreaks.BrkTime, tblBreaks.brkCrew FROM
tblBreaks WHERE tblBreaks.BrkDate = sDate, cn, adOpenDynamic,
adLockOptimistic"
me why. The last line fails when I try to open the recordset.
Your help is appreciated.
Dim i As Long
Dim lngMove As Long
Dim strDateCheck As String
Dim strCreationData As String
Dim strEditDate As String
Dim sDate As String
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long, c As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.Oledb.4.0; " & _
"Data Source=\\Gresnt07\Complaints\BreakManager.mdb;"
Set rs = New ADODB.Recordset
sDate = Sheet1.Cells(2, 1).Value
rs.Open "Select tblBreaks.BrkDate, tblBreaks.BrkTime, tblBreaks.brkCrew FROM
tblBreaks WHERE tblBreaks.BrkDate = sDate, cn, adOpenDynamic,
adLockOptimistic"