It's not clear from your question which bits of "anything like this"
you haven't done before: assuming you know something about
writing VBA  and SQL statement, you need to use the ADODB
objects - you might find this MS article useful as a start:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;257819

Andrew

Here are three routines that work with Access, you will need a different
connection string for SQL Server, probably something like

oConn.Open "Provider=sqloledb;" & _
          "Data Source=myServerName;" & _
          "Initial Catalog=myDatabaseName;" & _
          "User Id=myUsername;" & _
          "Password=myPassword"

Sub AddData()
Dim oConn As Object
Dim oRS As Object
Dim sSQL As String

   Set oConn = CreateObject("ADODB.Connection")
   oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & "c:\bob.mdb"

   sSQL = "INSERT INTO Contacts (FirstName, LastName,Phone, Notes) " & _
          "        VALUES ('Bob','Phillips','01202 345678','me')"
   oConn.Execute sSQL

   oConn.Close
   Set oConn = Nothing
End Sub

Sub GetData()
Const adOpenForwardOnly As Long = 0
Const adLockReadOnly As Long = 1
Const adCmdText As Long = 1
Dim oRS As Object
Dim sConnect As String
Dim sSQL As String
Dim ary

   sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & "c:\bob.mdb"

   sSQL = "SELECT * From Contacts"
   Set oRS = CreateObject("ADODB.Recordset")
   oRS.Open sSQL, sConnect, adOpenForwardOnly, _
               adLockReadOnly, adCmdText

   ' Check to make sure we received data.
   If Not oRS.EOF Then
       ary = oRS.getrows
       MsgBox ary(0, 0) & " " & ary(1, 0) & ", " & ary(2, 0)
   Else
       MsgBox "No records returned.", vbCritical
   End If

   oRS.Close
   Set oRS = Nothing
End Sub

Sub UpdateData()
Const adOpenForwardOnly As Long = 0
Const adLockReadOnly As Long = 1
Const adCmdText As Long = 1
Dim oConn As Object
Dim oRS As Object
Dim sConnect As String
Dim sSQL As String
Dim ary

   sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & "c:\bob.mdb"

   sSQL = "SELECT * From Contacts"
   Set oRS = CreateObject("ADODB.Recordset")
   oRS.Open sSQL, sConnect, adOpenForwardOnly, _
               adLockReadOnly, adCmdText

   ' Check to make sure we received data.
   If oRS.EOF Then
       MsgBox "No records returned.", vbCritical
   Else
       sSQL = "UPDATE Contacts  " & _
              "       SET Phone = 'None' " & _
              "WHERE FirstName = 'Bob' AND LastNAme = 'Phillips'"
       oRS.ActiveConnection.Execute sSQL

       sSQL = "SELECT * From Contacts"
       oRS.ActiveConnection.Execute sSQL
       ary = oRS.getrows
       MsgBox ary(0, 0) & " " & ary(1, 0) & ", " & ary(2, 0)
   End If

   oRS.Close
   Set oRS = Nothing
End Sub