Public Function dbFieldExists(ByVal Conn As SqlConnection, _
  ByVal TableName As String, _
  ByVal FieldName As String) As Boolean
 
  Dim oCommand As New SqlCommand( _
    "IF EXISTS (SELECT * FROM Information_Schema.Columns WHERE " & _
    "Table_Name LIKE '" & TableName & "' AND " & _
    "Column_Name LIKE '" & FieldName & "') SELECT 1 ELSE SELECT 0", Conn)
 
  oCommand.ExecuteScalar()
  Dim Result As Integer = oCommand.ExecuteScalar
  Return (Result <> 0)
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

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

    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

cmd.Parameters.AddWithValue("@TableName", TableName)            _
  cmd.Parameters.AddWithValue("@FieldName", FieldName)

SetSQL("ALTER table Adressen add Download nvarchar(1000)")