public sub prova()
Dim strConn As String
Dim strSql As String
Dim ObjConn As New SqlConnection(strConn)
Dim ObjCmd As New SqlCommand
Dim ObjReader As SqlDataReader
end sub

public sub prova2()
call prova
ObjConn.Open()
end sub

cosi nn funziona!