VB连接SQL SERVER实例

简易vb连接sql server实例
需引用Microsoft ActiveX Data Objects

![在这里插入图片描述](https://img-blog.csdnimg.cn/20200707111306176.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L05vdGh2YQ==,size_16,color_FFFFFF,t_70)

```vbnet
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                          (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

'联盟订单回撤
Private Sub Command1_Click()
    If connT = True Then
        Dim a
        a = Text1.Text
        If Mid(a, 1, 6) = "LIFEMG" Then
            SQL = "update AskForm set State=0 where billno='" & a & "';"
            RunSQL (SQL)
        Else
        Text1.Text =