The code would vary widely depending on what you wanted to do, but here's an example of getting data from a table and filling in textboxes (snipped, closing code not included):
Code:
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
If Nz(Me.txtPartNum, vbNullString) <> vbNullString Then
strSQL = "SELECT * FROM tblPartNumbers WHERE PartNumber = '" & Me.txtPartNum & "'"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If Not rs.EOF Then
Me.txtCost = rs!Cost
Me.txtPartDesc = rs!PartDesc