Visual Basic

Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
       mySearcher.PropertiesToLoad.Add("dNSHostName")
       mySearcher.PropertiesToLoad.Add("operatingSystem")
       mySearcher.PropertiesToLoad.Add("operatingSystemVersion")
       mySearcher.Filter = "(&(objectClass=computer)(operatingSystem=*server*))" '("(objectClass=computer)")

       Dim resEnt As SearchResult
       For Each resEnt In mySearcher.FindAll()
           Select Case dMain
               Case "v06"
                   Try

                       hostName = GetProperty(resEnt, "dNSHostName")
                       OSystem = GetProperty(resEnt, "operatingSystem")
                       Dim result1 As Net.NetworkInformation.PingReply = ping.Send(hostName, 1000)
                       If result1.Status = Net.NetworkInformation.IPStatus.Success Then
                           Dim row2 As String() = New String() {hostName, "N/A", OSystem}
                           dgvLocal.Rows.Add(row2)
                       Else
                           My.Computer.FileSystem.WriteAllText("C:\ExodusErrorLog.txt", hostName & " - Device is not pingable!" & vbCrLf & vbCrLf, True)
                       End If
                   Catch ex As Exception
                       My.Computer.FileSystem.WriteAllText("C:\ExodusErrorLog.txt", hostName & " - " & ex.Message & vbCrLf & vbCrLf, True)
                   End Try
               Case "v07.med.va.gov"
           End Select
       Next

Public Class Form1

    Dim Number1 As Integer
    Dim Number2 As Integer

    Dim Thread1 As System.Threading.Thread
    Dim Thread2 As System.Threading.Thread

    Private Delegate Sub UpdateLabel1Delegate(ByVal Number1 As Integer)
    Private Delegate Sub UpdateLabel2Delegate(ByVal Number2 As Integer)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Thread1 = New System.Threading.Thread(AddressOf CountUp)
        Thread1.Start()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Thread2 = New System.Threading.Thread(AddressOf CountDown)
        Thread2.Start()
    End Sub

    Private Sub CountUp()
        Do Until Number1 = 1000
            Number1 = Number1 + 1
            UpdateLabel1Text(Number1)
        Loop
    End Sub 'CountUp

    Private Sub CountDown()
        Number2 = 1000
        Do Until Number2 = 0
            Number2 = Number2 - 1
            UpdateLabel2Text(Number2)
        Loop
    End Sub 'CountDown

    Private Sub UpdateLabel1Text(ByVal Number1 As Integer)
        If Label1.InvokeRequired Then
            ' This is a cross-thread call, so
            ' invoke a call back to this method.
            Me.BeginInvoke(New UpdateLabel1Delegate(AddressOf UpdateLabel1Text), Number1)
        Else
            ' We're being called on the UI thread, so just update the label.
            Label1.Text = Number1
            Me.Refresh()
        End If
    End Sub

    Private Sub UpdateLabel2Text(ByVal Number2 As Integer)
        If Label2.InvokeRequired Then
            ' This is a cross-thread call, so
            ' invoke a call back to this method.
            Me.BeginInvoke(New UpdateLabel2Delegate(AddressOf UpdateLabel2Text), Number2)
        Else
            ' We're being called on the UI thread, so just update the label.
            Label2.Text = Number2
            Me.Refresh()
        End If
    End Sub

End Class

Private Sub Command8_Click()
Dim SQL As String
    
    SQL = "SELECT tblVisit.PatientID, tblPatients.Firstname, tblPatients.Lastname" _
        & "DateDiff('yyyy',[tblPatients]![Birthday],Now()) AS Age, tblVisit.[Date Visit]" _
        & "tblVisit.Diagnosis" _
        & "[First Name] &  ' ' & [Last Name] AS [Prescriber Names] FROM tblPatients INNER JOIN (tblDoctor INNER JOIN tblVisit ON tblDoctor.DoctorID = tblVisit.DoctorID) ON tblPatients.PatientID = tblVisit.PatientID" _
        & "WHERE [Firstname] = '" & Me.txtKeywords & "' "
        
    Me.subClientList.Form.RecordSource = SQL
    Me.subClientList.Form.Requery
     
End Sub

[First Name]& ' ' [Last Name]'

tblVist.Diagnosis

tblvist'.[DateVisit]tblVist