Visual Basic

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

strComputer = "w20hy050"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'Customer'")

For Each objPrinter in colInstalledPrinters
    objPrinter.Shared = TRUE
    objPrinter.ShareName = "Customer"
    objPrinter.Put_
Next

Quote:

Index was out of range. Must be non-negative and less than the size of the collection.

Public Sub getChangesFromForm2(ByVal text1 As String, ByVal text2 As String, ByVal text3 As String, ByVal text4 As String, ByVal text5 As String, ByVal text6 As String, ByVal text7 As String, ByVal text8 As String)

    DataGridView1.SelectedRows(0).Cells(0).Value = text1
    DataGridView1.SelectedRows(0).Cells(1).Value = text2
    DataGridView1.SelectedRows(0).Cells(2).Value = text3
    DataGridView1.SelectedRows(0).Cells(3).Value = text4
    DataGridView1.SelectedRows(0).Cells(4).Value = text5
    DataGridView1.SelectedRows(0).Cells(5).Value = text6
    DataGridView1.SelectedRows(0).Cells(6).Value = text7
    DataGridView1.SelectedRows(0).Cells(7).Value = text8

End Sub

Private Sub LookUpBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LookUpBtn.Click

       GuardianBasicList.getChangesFromForm2(GuardianIDTxt.Text, GuardianPhoneTxt.Text, GuardianFNameTxt.Text, GuardianMNameTxt.Text, GuardianLNameTxt.Text, GuardianEmergContFNameTxt.Text, GuardianEmergContLNameTxt.Text, GuardianEmergContPhoneTxt.Text)
       GuardianBasicList.Show()
       ' Me.Close()
   End Sub

Private Sub cmdCari_Click()
Set wsDtbsCont = Sheets("DataContainer")
Set rgDtbsCont = wsDtbsCont.Range("DataContainer")
Set c = rgDtbsCont.Find(txtContNo.Value, LookIn:=xlValues)
txtCarrier.Value = c.Offset(0, 1).Value
cmbForwarder.Value = c.Offset(0, 2).Value
txtSeal.Value = c.Offset(0, 3).Value
txtStatus.Value = c.Offset(0, 4).Value
txtArrivalTime.Value = c.Offset(0, 5).Value
txtStuffingTime.Value = c.Offset(0, 6).Value
txtSealTime.Value = c.Offset(0, 7).Value
txtFreeTime.Value = c.Offset(0, 8).Value
txtOverNight.Value = c.Offset(0, 9).Value
End Sub