Set cnn = Access.CurrentProject.Connection
Set rs = New ADODB.Recordset
strsql = "SELECT tblAcqDetails.*,tblItems.* FROM tblAcqDetails,tblItems WHERE tblAcqDetails.fkItemID=tblItems.pkItemID AND tblAcqDetails.fldNote = 'New Stock'"
rs.Open strsql, cnn
Me.txtID = rs!pkItemID...