Sub Excel_InsertIntoSDF()

Dim oCn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim ConnString As String
Dim SQL As String
Dim DBpath As String
Dim qt As QueryTable
Dim tt As String
Dim dd As String

DBpath = "C:\MS_SQL\MyDatabase#1.sdf"
tt = "3"
dd = "Germany"
ConnString = "PROVIDER=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=" & DBpath
Set oCn = New ADODB.Connection
oCn.Properties("Prompt") =  2 
oCn.ConnectionString = ConnString
oCn.Open
strSQL = "INSERT INTO [depo#country](countryid, countryname) VALUES('" & tt & "','" & dd & "')"
oCn.BeginTrans
oCn.Execute strSQL
oCn.CommitTrans
oCn.Close
Set oCn = Nothing

End Sub