Private Sub ID_LostFocus()
Dim db As Database
Dim rst As Recordset
Dim STRSQL As String
Set db = CurrentDb()
STRSQL = "Select [Test.ID], [Test.Fname], [Test.DoB],[Test.Facility Name], [Test.City], [Test.State], [Test.Country] from Test where Test.ID=" & "'" & Me.ID & "';"
Set rst = db.OpenRecordset(STRSQL)
If rst.RecordCount = 0 Then
MsgBox "This is a new Entry"
Exit Sub
End If
Me.Fname = rst.Fields(1)
Me.DoB = rst.Fields(2)
Me.Facility_Name = rst.Fields(3)
Me.City = rst.Fields(4)
Me.State = rst.Fields(5)
Me.Country = rst.Fields(6)
Me.Recalc
End Sub