move next record (1 Viewer)

Dim conn As Object
Dim objRecordset As Object
Set conn = CreateObject("ADODB.Connection")
'conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.provider = "Microsoft.ACE.OLEDB.12.0"
conn.Open "z:\YearOnlyEdit.accdb"
Set objRecordset = CreateObject("ADODB.recordset")
objRecordset.activeconnection = conn
objRecordset.Source = "select * from table where field1 = 'asdf'"
objRecordset.Open

Option Compare Database
Option Explicit

Dim conn As Object
Dim objRecordset Äs Object

Private Sub CormandButton1_Click ()

    If conn Is Nothing Then
    
        Set conn = CreateObject("ÄDODB. Connection")
    
        conn.provider = "Microsoft.ÄCE.OLEDB.12.0"
        conn.Open "D:\Database1. accdb"
    End If
    If objRecordset Is Nothing Then 
        Set objRecordset = CreateObject("ÄDODB.Recordset")
    
        objRecordset.activeconnection = conn
        objRecordset.Source = "SELECT * FROM dbsample WHERE emp_name = '" & txtname.Text & "' "
        objRecordset.Open
        objRecordset.MoveFirst
    Else
        If Not objRecodset.EOF Then
            objRecordset.MoveNext
            If objRecordset.EOF Then
                objRecordset.MovePrevious
                MsgBox "End of File reached!"
            End If
        Else
            MsgBox "End of File raeched."
        End If
    End If
    txtid.Text = objRecordset!emp_id.Value

End Sub

Private Sub txtname_AfterUpdate()

    If Not objRecordset Is Nothing Then objRecordset.Close: Set objRecordset = Nothing
    If Not conn Is Nothing Then conn.Close: Set conn = Nothing
End Sub


Private Sub Form_Unload(Cancel As Integer)
    Call txtname_AfterUpdate
End Sub