Mit VBA, SQL Datensatz schreiben

Hallo,
ich versuche ein Datensatz mittels VBA in SQL Datenbank zu schreiben, leider bekomme ich das nicht hin. Es kommt ein Fehlermeldung "Die gespeicherte Prozedur "kal" wurde nicht gefunden" es ist aber keine Prozedur sondern eine Tabelle (sie ist leer) unten das Queltext. Kann mir jemand helfen das Problem zu lösen - danke voraus. Die Datenbank heisst kal1 und Tabelle kal mit Feldern: wochentag, tag, monat und jahr
MfG Joachim

Sub kal()

On Error GoTo Fehler

Dim strConn As String
Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset

On Error GoTo Fehler

Set Conn = New ADODB.Connection

strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=JOACHIM-PC;INITIOAL CATALOG=kal1.mdf;User id=Joachim;Password=joachim;"
strConn = strConn & "INTEGRATED SECURITY=sspi;"
Conn.Open strConn

Set rst = New ADODB.Recordset

With rst
.Open "kal", Conn, adOpenKeyset, adLockOptimistic
.AddNew
.Fields(wochentag) = "Mo"
.Fields("tag") = "1"
.Fields("monat") = "2"
.Fields("jahr") = "2011"
.Update
.Close
End With
Stop
Conn.Close
Set Conn = Nothing
GoTo n10
Fehler:

MsgBox Err.Number & " " & Err.Description

n10:

End Sub

Conn.Execute("INSERT INTO kal (wochentag, tag, monat, jahr) VALUES ('Mo', 1, 2, 2011)")