Sub INSERTDATAINDB()
   
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim AppPath, app As String
    
   AppPath = "c:\LOGCALL\test_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