Visual Basic

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       Dim myStream As Stream = Nothing
       Dim openFileDialog1 As New OpenFileDialog()

       openFileDialog1.InitialDirectory = "c:\"
       openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
       openFileDialog1.FilterIndex = 2
       openFileDialog1.RestoreDirectory = False

       If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
           Try
               myStream = openFileDialog1.OpenFile()
               If (myStream IsNot Nothing) Then
                   ' Insert code to read the stream here.
               End If
           Catch Ex As Exception
               MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
           Finally
               ' Check this again, since we need to make sure we didn't throw an exception on open.
               If (myStream IsNot Nothing) Then
                   myStream.Close()
               End If
           End Try
       End If
   End Sub

Dim CN As New OleDbConnection(cnString)

        CN.Open()
once if the employee login by its e-id and password it shows the e-name,inthe another textbox.so to select the ename i have coded below.

 com2 = New OleDbCommand("SELECT  ename from Images WHERE eid ='" & txtemid.Text & "'  ", CN)
            dr = com2.ExecuteReader
            While dr.Read
                txtename.Text = dr(0)


                'Please below given line is to extarct the only current time except date
                txttime.Text = Now.ToShortTimeString








"Now here it is validating for timeout "
        com3 = New OleDbCommand("Select * from logtime where eid='" & txtemid.Text & "' and timein<>null and timeout=null and present=null ", CN)
        dr1 = com3.ExecuteReader

        If dr1.Read Then
            Button1.Text = "Time Out"
            txttimeout.Text = Now.ToShortTimeString
            Exit Sub
        Else


        End If

With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = ""
    .Font.Color = RGB(102,102,153)
    With .Replacement
        .ClearFormatting
        .Text = ""
        .Font.Color = RGB(80,176,0)
    End With
    .Execute Replace:=wdReplaceAll
End With