Function Save() As String
Dim result As String = String.Empty
Dim conn As SqlConnection = New SqlConnection(Namespaceติดต่อกับฐานข้อมูล.Configuration.strConnection)
conn.open()
Dim cmd As SqlCommand
cmd = New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "sp_Customer"
cmd.Connection = conn