Como Conectar conSQl Server Compact

Saludos a todos , tengo un código que funciona bien sobre una base de
datos creada en SQL server.
Cómo puedo hacer para que funcione con SQl Compact Edition? con una base
.sdf?
He intentado buscando en la red, pero no doy con el código.
Este es el código que funciona, pero con SQL Server. Desde ya gracias por
la ayuda

Imports System.Data.SqlClient

Public Class Form1
Public Function CadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = "(local)\SQLEXPRESS"
csb.InitialCatalog = "prueba_SQL"
csb.IntegratedSecurity = True
Return csb.ConnectionString
End Function

Public Function Insertar(ByVal nombre As String, _
ByVal apellidos As String, _
ByVal email As String, _
ByVal fecha As DateTime, _
ByVal descripcion As String) As Integer
Dim sCon As String = CadenaConexion()
Dim sel As String
Dim NombreTabla As String
NombreTabla = "Tabla1"
sel = "INSERT INTO " & NombreTabla & _
"(Nombre, Apellidos, Email, Fecha, Descripcion) " & _
"VALUES " & _
"(@Nombre, @Apellidos, @Email, @Fecha, @Descripcion) " & _
"SELECT @@Identity"

Using con As New SqlConnection(sCon)
Dim cmd As New SqlCommand(sel, con)
cmd.Parameters.AddWithValue("@Nombre", nombre)
cmd.Parameters.AddWithValue("@Apellidos", apellidos)
cmd.Parameters.AddWithValue("@Email", email)
cmd.Parameters.AddWithValue("@Fecha", fecha)
cmd.Parameters.AddWithValue("@Descripcion", descripcion)

con.Open()
Dim t As Integer = CInt(cmd.ExecuteScalar())
con.Close()
Return t

End Using
End Function