private _ConnectionString as string ' zu setzen im constructor des DAL
...
Public Function dbFieldExists( ByVal TableName As String, ByVal FieldName As _
  String) As Boolean
 
  Using con As New SqlCeConnection(_ConnectionString)
    con.Open()
 
    Dim cmd As New SqlCommand( "Select Count(Table_Name) FROM" & _
      "Information_Schema.Columns WHERE Table_Name 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
  End Using
 
End Function