dim con as new SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFileName='" & Application.StartupPath("ชื่อ folder ที่ตั้งไว้ /MORYA.mdf") & "';Integrated Security=True;Connect Timeout=30;User Instance=True")
with con
if .State = ConnectionState.Open Then .Close()
.Open
End With