ما المشكلة فى هذه المكتبة ؟؟

أخوانى الأعزاء السلام عليكم

ارجو منكم نسخ هذه المكتبة و ترجمتها بال VBC و يقول لى ما المشكلة فيها و لكم جزيل الشكر مقدماً

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Runtime.InteropServices
Imports System.Reflection

Public Class Class1
    Private _connstr As String

    Public Sub New()
        MyBase.new()
        _connstr = ""
    End Sub

    Public Sub New(ByVal Connstr As String)
        MyBase.new()
        _connstr = Connstr
    End Sub

    Public Property ConnectionString() As String
        Get
            Return _connstr
        End Get
        Set(ByVal Value As String)
            _connstr = Value
        End Set
    End Property

    Public Function MyInsertMethod(ByVal papMan As String, ByVal papFrom As String, ByVal manTele As String, ByVal manMobile As String) As Integer
        Dim MyConnection As String = _connstr
        Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(MyConnection)

        Dim queryString As String = "INSERT INTO [salesmen] ([PapMan], [PapFrom], [ManTele], [ManMobile]) VALUES (@Pap"& _
        "Man, @PapFrom, @ManTele, @ManMobile)"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_papMan As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
        dbParam_papMan.ParameterName = "@PapMan"
        dbParam_papMan.Value = papMan
        dbParam_papMan.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_papMan)
        Dim dbParam_papFrom As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
        dbParam_papFrom.ParameterName = "@PapFrom"
        dbParam_papFrom.Value = papFrom
        dbParam_papFrom.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_papFrom)
        Dim dbParam_manTele As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
        dbParam_manTele.ParameterName = "@ManTele"
        dbParam_manTele.Value = manTele
        dbParam_manTele.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_manTele)
        Dim dbParam_manMobile As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
        dbParam_manMobile.ParameterName = "@ManMobile"
        dbParam_manMobile.Value = manMobile
        dbParam_manMobile.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_manMobile)

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

        Return rowsAffected
    End Function

End Class