>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 Sub >>Thanks,