Imports System.Data.Sql
Imports System.Data.SqlClient


Module code
    'ฐานข้อมูล
    Friend cn As New SqlConnection("Data source=(local); initial catalog=coffeeshopproject; integrated Security=SSPI;")
    'cmd Sqlcommand
    Friend cmd As New SqlCommand
    'DA SqlDataAdapter
    Friend DA As New SqlDataAdapter
    'SQL = คำสั่ง
    Friend sql As String
    'SQL Data Set
    Friend DS As DataSet

    'ฟังชั่นเปิดฐานข้อมูล
    Friend Sub connect_open()
        If cn.State = ConnectionState.Closed Then cn.Open()

    End Sub

    'ฟังชั่นรีเทินค่าบางอย่างของฐานข้อมูล
    Friend Function cmd_excuteScalar()
        connect_open()
        cmd = New SqlCommand(sql, cn)
        Return cmd.ExecuteScalar
    End Function


*****มีปัญหาตอนกดรันแล้ว cmd.ExecuteScalar  ขึ้น incorrect syntax near the keyword 'user'. in sql server แก้ยังไงคะสาเหตุเพราะอะไร*****