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