SubscribePrivate Sub UserForm_Initialize()>
Label1.Caption = Date
On Error GoTo Error
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=F:\SAIO\Users.mdb"
Dim i As Integer
rst.Open "SELECT [ntlogin] FROM [scon] GROUP BY [ntlogin]" & _
" HAVING (Max([date]) <>
-- Feel free to probe me for more information if you need.
You are not logged in, either login or create an account to post comments
Anyways, here is a txt file.
posted by dnthomps at 9:44 PM on October 21, 2007