Option Explicit Dim cnnPhoneSQL As ADODB.Connection Dim rstPhonesSQL As ADODB.Recordset Dim strSQL As String Private Sub Form_Load() 'creating a connection Set cnnPhoneSQL = New Connection With cnnPhoneSQL .Provider = "SQLOLEDB" .ConnectionString = "User ID = sa;" & _ "Data Source = WEBDEV;" & _ "Initial Catalog = Phone" .Open End With 'Creating recordset Set rstPhonesSQL = New Recordset With rstPhonesSQL .CursorType = adOpenDynamic .LockType = adLockOptimistic .CursorLocation = adUseServer .Open "SELECT * FROM Phones ORDER BY name ASC", cnnPhoneSQL End With 'Populate textbox Set txtLastName.DataSource = rstPhonesSQL txtLastName.DataField = "last_name" End Sub Private Sub cmdAdd_Click() rstPhonesSQL.AddNew End Sub Private Sub cmdSave_Click() rstPhonesSQL.Fields("last_name") = Trim(txtLastName.Text) rstPhonesSQL.Update End SubThanks,