vbc : Command line error BC2010 :
compilation failed : 'unable to load international Dll : VBC7ui.dll'
I have no idea what this means. I'll give you a background of this program : Here is the vb program that I want to compile to a .dll.

Imports System
Imports System.Data
Imports System.Collections
Imports System.Configuration


Namespace WroxUnited

    Public Class DataAccessCode
        Public Sub New()
        End Sub
 Function Dates() As System.Data.IDataReader
Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )
Dim queryString As String = "SELECT [Games].[Date], [Games].[GameID] FROM [Games]"
 Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
  dbCommand.CommandText = queryString dbCommand.Connection = dbConnection

  dbConnection.Open
  Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

  Return dataReader
End Function




Function GamesByDate(ByVal [date] As Date) As System.Data.IDataReader
Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
  Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )

  Dim queryString As String = "SELECT [Teams].[TeamName], [Opponents].[OpponentName], [Games].[Location], [Oppon"& _
"ents].[OpponentLocation] FROM [Teams], [Opponents], [Games] WHERE (([Opponents]."& _
"[OpponentID] = [Games].[OpposingTeam]) AND ([Teams].[TeamID] = [Games].[WroxTeam"& _
"]) AND ([Games].[Date] = @Date))"
  Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
  dbCommand.CommandText = queryString
  dbCommand.Connection = dbConnection

  Dim dbParam_date As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
  dbParam_date.ParameterName = "@Date"
  dbParam_date.Value = [date]
  dbParam_date.DbType = System.Data.DbType.DateTime
  dbCommand.Parameters.Add(dbParam_date)

  dbConnection.Open
  Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

  Return dataReader
End Function


    Function CheckFanEmailAddresses(ByVal fanEmail As String) As Boolean
        Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )

        Dim queryString As String = "SELECT COUNT([Fans].[FanEmail]) FROM [Fans] WHERE ([Fans].[FanEmail] = @FanEmail)"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_fanEmail As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_fanEmail.ParameterName = "@FanEmail"
        dbParam_fanEmail.Value = fanEmail
        dbParam_fanEmail.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_fanEmail)

        Dim Result As Integer = 0
        dbConnection.Open
        Try
           Result = dbCommand.ExecuteScalar
        finally
           dbConnection.Close
        End Try

        If Result > 0 then
                   Return true
        Else Return false
        End if




    End Function





    Function AddNewFanEmail(ByVal fanEmail As String) As Integer
        Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )
        Dim queryString As String = "INSERT INTO [Fans] ([FanEmail]) VALUES (@FanEmail)"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_fanEmail As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_fanEmail.ParameterName = "@FanEmail"
        dbParam_fanEmail.Value = fanEmail
        dbParam_fanEmail.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_fanEmail)

        Dim rowsAffected As Integer = 0
        dbConnection.Open
        Try
            rowsAffected = dbCommand.ExecuteNonQuery
        Finally
            dbConnection.Close
        End Try

        Return rowsAffected
    End Function

    Function GetTeams() As System.Data.IDataReader
            Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
                        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )

            Dim queryString As String = "SELECT [Teams].[TeamID], [Teams].[TeamName], [Teams].[Notes] FROM [Teams]"
             Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
             dbCommand.CommandText = queryString
             dbCommand.Connection = dbConnection

             dbConnection.Open
             Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

             Return dataReader
         End Function


         Function GetPlayersByTeam(ByVal teamID As Integer) As System.Data.IDataReader
            Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
                         Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )

             Dim queryString As String = "SELECT [Players].[PlayerName], [Positions].[PositionName] FROM [Players], [Positi"& _
                 "ons], [PlayerTeam], [Teams] WHERE (([PlayerTeam].[PlayerID] = [Players].[PlayerI"& _
                 "D]) AND ([PlayerTeam].[Position] = [Positions].[PositionID]) AND ([PlayerTeam].["& _
                 "TeamID] = [Teams].[TeamID]) AND ([PlayerTeam].[TeamID] = @TeamID))"
             Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
             dbCommand.CommandText = queryString
             dbCommand.Connection = dbConnection

             Dim dbParam_teamID As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
             dbParam_teamID.ParameterName = "@TeamID"
             dbParam_teamID.Value = teamID
             dbParam_teamID.DbType = System.Data.DbType.Int32
             dbCommand.Parameters.Add(dbParam_teamID)

             dbConnection.Open
             Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

             Return dataReader
         End Function

Default.aspx



    End Class
End Namespace


At first using the newer vbc compiler I got all sorts of errors such as AppSettings was obsolete. No one could figure out why so I had an idea to compile the program with an older compiler. vbc from the 1.1 Framework. It seems to work very well except for the one error message listed on top of this page. I have listed this topic twice without any replies so I'm hoping someone could look up this error message and tell me what it is so I can fix my program. I've given the error code on the top of this page. Thank you for replying.

Steve Cist
[email protected]