Dim QCDB As DAO.Database
Dim rsPart As DAO.Recordset
Dim strSQL As String
Set QCDB = CurrentDb
strSQL = "SELECT Part_ID, PartType, PartDWG " & _
"FROM tblParts " & _
"WHERE PartID = " & intPartID
Set rsPart = QCDB.OpenRecordset(strSQL)
Me.txtPartType_FK = rsPart.Fields(0).Value
Me.txtPartName = rsPart.Fields(1).Value
Me.txtPartDrawing = rsPart.Fields(2).Value