SQL From Excel To MS SQL Server 7.0

Hi

Win2k, XP
Excel 2k
MS SQL Server 7.0


I am having a problem updating my MS Server database with the code bellow. I think the problem is with this line:
conn.ConnectionString = "Provider=SQLServer;

can anybody help??
see also the attached for additional info.
here is the code in Excel

Sub INSERTDATAINDB()

Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim AppPath, app As String

AppPath = "c:LOGCALL est_Data.MDF"
Set conn = New ADODB.Connection
Set cmd = New ADODB.Command

conn.ConnectionString = "Provider=SQLServer;Data Source=" & AppPath & ";Persist Security Info=False"
conn.ConnectionTimeout = 30
conn.Open

Set cmd.ActiveConnection = conn

If Range("C" & CStr(ActiveCell.Row)).Value = "X" And Range("G" & CStr(ActiveCell.Row)).Value <> "DUPLICATE CALL" Then
cmd.CommandText = "INSERT INTO LOGCALL_table VALUES ('" _
& Range("B" & CStr(ActiveCell.Row)).Value & _
"','" & Range("C" & CStr(ActiveCell.Row)).Value & _
"',NULL,NULL,NULL,NULL,'" & Format(Range("H" & CStr(ActiveCell.Row)).Value, "HH:MM:SS") & _
"','" & Format(Range("I" & CStr(ActiveCell.Row)).Value, "HH:MM:SS") & _
"','" & Format(Range("J" & CStr(ActiveCell.Row)).Value, "HH:MM:SS") & _
"','" & Range("C1").Value & "','" & Format(Date, "MM/DD/YYYY") & "');"
End If
cmd.Execute , , adCmdText
conn.Close

End Sub