Public Function dbFieldExists(ByVal TableName As String, ByVal FieldName As _
  String) As Boolean
        Try
            Dim con As New SqlCeConnection
            con.ConnectionString = "datasource = Database1.sdf"
            con.Open()
 
            Dim cmd As New SqlCeCommand("Select Count(Mustermann) FROM " & _
             "Information_Schema.Columns WHERE Adressen LIKE @TableName AND " & _
              "Column_Name LIKE @FieldName ", con)
 
            cmd.Parameters.AddWithValue("@TableName", TableName)
            cmd.Parameters.AddWithValue("@FieldName", FieldName)
 
            Dim Result As Object = cmd.ExecuteScalar()
 
            If (Result IsNot Nothing) Then
                Return Convert.ToInt32(Result) > 0
            End If
 
            Return False
        Catch
            MsgBox(Err.Number & vbCrLf & Err.Description)
        End Try
    End Function