Hi chris128,

Here you go...

Private Sub Srv_Ticket_LostFocusHandler(ByVal sender As Object, ByVal e As System.EventArgs) Handles Srv_Ticket.LostFocus
Dim DA As New OleDb.OleDbDataAdapter
Dim DS As New DataSet
Dim SelectCmd As New OleDb.OleDbCommand
Dim connection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\....\Notifications.mdb")
SelectCmd.Connection = connection
SelectCmd.CommandText = "SELECT reported_user, reported_support, outage_details FROM tOutagesServer WHERE Srv_Ticket = @Srv_Ticket"
DA.SelectCommand = SelectCmd
DA.SelectCommand.Parameters.Clear()
DA.SelectCommand.Parameters.AddWithValue("@Srv_Ticket", Srv_Ticket.Text)
DA.Fill(DS)
For Each Row As DataRow In DS.Tables(0).Rows
Me.Srv_User.Checked = Row("Reported_User")
Me.Srv_Support.Checked = Row("Reported_Support")
Me.Srv_Details.Text = Row("Outage_Details")
Next
End Sub