Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.70K
~155 People Reached
Favorite Forums
Favorite Tags
1 Posted Topic
My code is this. Dim strSQL As String, strSQL2 As String Dim db As Connection, rst As ADODB.Recordset Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\River Syde RMS\RiverSyde.mdb;" strSQL = "SHAPE {SELECT * FROM Sales where Date1=#" & DTPicker3.Value & "#" Set rst = New ADODB.Recordset If …
The End.