Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cnStr As String = "server=×.×.×.×;Initial Catalog=app;Integrated Security=false;Uid=sa;Password=;"
        Dim cn = New SqlConnection(cnStr)
        Dim da = New SqlDataAdapter("SELECT descr FROM jd WHERE  id=95", cn)
        Dim ds = New Data.DataSet()

        If da.Fill(ds, "jd") = 0 Then
            MessageBox.Show("无!", "西北", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)

        Else
            da.Fill(ds, "jd")

            DataGrid1.DataSource = ds.Tables("jd")
            cn.Close()
            cn.Dispose()
            DataGrid1.Refresh()
            TextBox1.Text = ""
            TextBox1.Focus()

        End If



    End Sub