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

Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
        Dim sqlQRY As String = "SELECT * FROM Customers"

        Dim cmdExec As SqlCeCommand = New SqlCeCommand(sqlQRY, conn)

        'create data adapter
        Dim da As SqlCeDataAdapter = New SqlCeDataAdapter(sqlQRY, conn)

        'create dataset
        Dim ds As DataSet = New DataSet

        'fill dataset
        da.Fill(ds, "Customers")

        Dim Report As frmReports = New frmReports

        Dim mReport As rptCustomers = New rptCustomers

        mReport.SetDataSource(ds)

        Report.CrystalReportViewer1.ReportSource = mReport

        Report.ShowDialog()
    End Sub