Spørgsmål om VB og MsSQL

Okay, jeg bruger denne til at hente data ned fra min MsSQL-server (og f.eks. over i en list-box):

---------

Option Explicit

Private objConn As Object
Private objRs  As Object
Public Function MsSQL(ByVal strHost As String, _
                      ByVal strBase As String, _
                      ByVal strUser As String, _
                      ByVal strPass As String, _
                      ByVal strBruger As String, _
                      ByVal strSQL As String, _
                      ByVal strAdgang As String) As Boolean

Dim strConn As String
 
  strUser = "sa"
  strPass = "***slettet***"
  strHost = "***slettet***"
  strBase = "multiedit"

  strConn = "Provider=SQLOLEDB.1" & _
            ";user id=" & strUser & _
            ";pwd=" & strPass & _
            ";Initial Catalog=" & strBase & _
            ";server=" & strHost & ";"


    With objConn
        .CommandTimeout = 30
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        Set objRs = .Execute(strSQL)
    End With
   

End Function

Private Sub Form_Load()
Set objConn = CreateObject("ADODB.Connection")
  Set objRs = CreateObject("ADODB.RecordSet")


Dim noget
Dim login

   
  noget = MsSQL("***slettetIP***", _
                    "multiedit", _
                    "sa", _
                    "***slettet***", _
                    "", _
                    "SELECT * FROM documents WHERE ID = '" & frmLogin.lstdocuID.Text & "';", _
                    "")

        txtdocument.Text = objRs("text")
   
  objRs.Close
  objConn.Close
  Set objConn = Nothing
  Set objRs = Nothing
End Sub

-------------------


Sætter 200 point på højkant til den som kan fortælle mig hvordan jeg lægger data over i min msSQL-server. Svaret skal fortælle hvordan data lægges i (ny linie af data), og hvordan eksisterende data ændres, osv.