non credo di avere dei problemi a postarlo...anche se questo codice è un codice ormai testato da più di 4 anni e che non ha mai dato problemi.

Potrebbe essere dovuto al fatto che è caricato in una dll?

Imports System
Imports System.Data
Imports System.Data.SqlClient
Namespace DB
Public Class SQLDB
Public Shared S_strConn As String = "Data Source='';User ID='';Password='';Initial catalog='';"
Public Shared Function ForniscoCN() As SqlConnection
ForniscoCN = New SqlConnection(SQLDB.S_strConn)
End Function
Public Shared Function ForniscoDS(ByVal argSQL As String) As DataSet
Dim da As New SqlDataAdapter(argSQL, S_strConn)
Dim ds As New DataSet
da.Fill(ds, "Tabella1")
Return ds
End Function
Public Shared Function ForniscoDS(ByVal argSQL As String, ByVal argSQL2 As String) As DataSet
Dim da As New SqlDataAdapter(argSQL, S_strConn)
Dim ds As New DataSet
da.Fill(ds, "Tabella1")
da = New SqlDataAdapter(argSQL2, S_strConn)
da.Fill(ds, "Tabella2")
Return ds
End Function
Public Shared Function ForniscoDS(ByVal argSQL As String, ByVal argSQL2 As String, ByVal argSQL3 As String) As DataSet
Dim da As New SqlDataAdapter(argSQL, S_strConn)
Dim ds As New DataSet
da.Fill(ds, "Tabella1")
da = New SqlDataAdapter(argSQL2, S_strConn)
da.Fill(ds, "Tabella2")
da = New SqlDataAdapter(argSQL3, S_strConn)
da.Fill(ds, "Tabella3")
Return ds
End Function
Public Shared Function ForniscoDV(ByVal argds As DataSet, ByVal argTBID As Integer) As DataView
ForniscoDV = New DataView(argds.Tables("argTBID"))
End Function
Public Shared Function ForniscoDS_SP(ByVal argSP As String) As DataSet
Dim da As New SqlDataAdapter(argSP, S_strConn)
Dim ds As New DataSet
da.Fill(ds, "Tabella1")
ForniscoDS_SP = ds
End Function
Public Shared Function ForniscoDR(ByVal argSQL As String) As SqlDataReader
Dim objconn As SqlConnection = ForniscoCN()
objconn.Open()
Dim objComm As New SqlCommand(argSQL, objconn)
ForniscoDR = objComm.ExecuteReader
End Function
Public Shared Function EseguoCommand(ByVal argSQL As String, ByVal argCN As SqlConnection, ByVal argTipo As String) As Long
Dim objComm As New SqlCommand(argSQL, argCN)
objComm.Connection.Open()
Dim lngValore As Long
Select Case argTipo
Case "ExecuteNonQuery"
objComm.ExecuteNonQuery()
lngValore = -1
Case "ExecuteScalar"
lngValore = Int64.Parse(objComm.ExecuteScalar().ToString)
End Select
argCN.Close()
Return (lngValore)
End Function
End Class
End Namespace


Questo è il codice ho tolto i dati specifici relativi alla connessione....comunque non esiste la parola provider