1 Imports System.IO
2 Module ConnectionString
3     Dim st As String
4     Public Function ReadCS() As String
5         Using sr As StreamReader = New StreamReader(Application.StartupPath &
"\SQLSettings1.dat")
6             st = sr.ReadLine()
7         End Using
8         Return st
9     End Function
10     Public ReadOnly cs As String = ReadCS()
11 End Module


Gõ tìm kiếm nhanh...