Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim objConnection As SqlCeConnection
        Dim strConnection = "Data Source =\Programme\db\Data.sdf;"
 
        Try
            objConnection = New SqlCeConnection(strConnection)
            objConnection.Open()
            MsgBox("OK")
        Catch ex As Exception
            MsgBox("Fehler")
            objConnection.Close()
        End Try
        objConnection.Close()
    End Sub
End Class

Dim strConnection = "Data Source =D:\eigene Dateien\Visual Studio" & _
  "2005\Projects\db\db\Data.sdf;"

Dim strConnection = "Data Source =Data.sdf;"

mfg
Kekz