ADO to ADO.net

[lpaul]

How do I changes this code for ado.net???

Public Sub OpenConDatabase(ByRef sFile As String)
Dim ADODB As Object
On Error Resume Next
gConData = Nothing
gConData = New ADODB.Connection
Dim OleDb As Object
On Error Resume Next


gConData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & sFile & ";" & "Persist Security Info=False"
gConData.Open()


End Sub


Public Function ISOpenConDatabase(ByRef sFile As String) As Boolean
Dim ADODB As Object

On Error GoTo ErrorHandler
strFunctionName = "ISOpenConDatabase"

ISOpenConDatabase = False

gConData = Nothing
gConData = New ADODB.Connection

 

[vis781]

Try....

Public Sub OpenConDatabase(byref sfile as string)
 
dim Myconnection as new oledbconnection
myconnection.connectionstring =  "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & sFile & ";" & "Persist Security Info=False"
Try 
MyConnection.open
if myconnection.connectionstate = ConnectionStateOpen then
'do whatever
catch ex as oledbexception
'error handling'
finally
myconnection.close
end try

 

[lpaul]

Thanks - that helps a bunch