Using data connection

use middle tier and general funtion
Dim mlMT As New MiddleTier
Dim mlGF As New GeneralFunction

Dim rsXXX As DataTable = mlMT.OpenDataTable("SELECT * FROM XXX WHERE XXX", ConfigurationManager.ConnectionStrings("YYY").ConnectionString)

(or penulisan connectionstring => "Dim mlCONNECTION As String = ConfigurationManager.ConnectionStrings("connHR").ConnectionString"
- menjadi -
Dim rsXXX As DataTable = mlMT.OpenDataTable("SELECT * FROM XXX WHERE XXX", mlCONNECTION )

fetch records:...
Dim mlABC As String = rsXXX.Rows(0).Item(0).ToString
Dim mlDEF As String = rsXXX.Rows(0).Item(1).ToString


execute query:...
mlMT.ExecuteQuery("INSERT INTO table Values('" & variable1 & "', '" & Format("mmm-dd-yyyy", variable2) & "', '" & variable3 & "', '" & variable4 & "', '" & variable5 & "'", mlCONNECTION)