ERRO BC30560: [ô]CLASS[ô] IS AMBIGUOUS IN THE [ô]N

Imports MySql.Data.MySqlClient
Imports System.Data
Imports System.Data.Dataset
Imports System.Configuration
Imports System.Web.UI.Page
Imports System.Windows.Forms

Namespace ImobiliusDataAccess

		Public Class ConexaoMySQL
	
			Private conn				As MySql.Data.MySqlClient.MySqlConnection
			Private connString			As String 
			Private mComando 			As New MySql.Data.MySqlClient.MySqlCommand
			Private mDataAdap			As New MySql.Data.MySqlClient.MySqlDataAdapter
			Private mDataReader			As MySql.Data.MySqlClient.MySqlDataReader

			Sub New(ByVal Optional strConn As String=[Ô][Ô])
				If strConn=[Ô][Ô] Then
					connString	=	ConfigurationManager.ConnectionStrings([Ô]connGeral[Ô]).ConnectionString
				Else
					connString	=	strConn
				End If
			End Sub
			
			Public Sub DBConectar()
				If Not conn.State = ConnectionState.Open Then
					conn = New MySqlConnection()
					conn.ConnectionString = connString
					conn.Open()
				End If
			End Sub		

			Public Sub DBDesconectar()
				If Not conn.State = ConnectionState.Open Then
					conn.Close()
					conn.Dispose()
					conn = Nothing
				End If
			End Sub	

			Public Function DBExecutaDataTable(ByVal SQLString As String) As DataTable
				Dim mDataTable As New DataTable
				Try
					DBConectar()
					mComando.CommandType = CommandType.Text
					mComando.CommandText = SQLString
					mComando.Connection = conn
					mDataAdap.SelectCommand = mComando
					mDataAdap.Fill(mDataTable)
					mDataAdap.Dispose()
					Return mDataTable
				Catch ex As Exception
					[ô]MessageBox.Show(ex.Message)
				End Try
				Return mDataTable
			End Function

			Public Function DBExecutarReader(ByVal SQLString As String) As MySqlDataReader
				Try
					DBConectar()
					mComando.CommandType = CommandType.Text
					mComando.CommandText = SQLString
					mComando.Connection = conn
					mDataReader = mComando.ExecuteReader()
					mComando.Dispose()
					Return mDataReader
				Catch ex As Exception
					[ô]MessageBox.Show(ex.Message)
				End Try
				Return mDataReader
			End Function	

			Public Function DBExecutarQuery(ByVal SQLString As String) As MySqlCommand
				Try
					DBConectar()
					mComando.CommandType = CommandType.Text
					mComando.CommandText = SQLString
					mComando.Connection = conn
					Return mComando
				Catch ex As Exception
					[ô]MessageBox.Show(ex.Message)
				End Try
				Return mComando
			End Function	
	
		End Class

End Namespace	

vbc /t:library /out:..\bin\DBImobilius.dll /r:System.dll /r:..\bin\MySql.Data.dll database.vb

<%@ Page Language=[Ô]VB[Ô]%>
<%@ Import NameSpace=[Ô]ImobiliusDataAccess[Ô] %>

<script runat=[Ô]server[Ô]>
	Public IsProgressB			=	True
	Sub Page_Load(obj As Object, e as EventArgs)
		Dim cn AS New ImobiliusDataAccess.ConexaoMySQL()
	End Sub
</script>

Dim cn AS New ImobiliusDataAccess.ConexaoMySQL()