Imports System.Data.SqlClient
Public Class Form1
Dim cn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim constr As String = "Data Source =(Local);user=sa;pwd=sa;database=mydb002;"
cn = New SqlConnection(constr)
da = New SqlDataAdapter("select title from mytable003 where num='str' ", cn)
ds = New DataSet()
cn.Open()
da.Fill(ds, "mytable003 ")
DataGridView1.DataSource = ds.Tables(" mytable003")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As Integer
Dim randObj As New Random()
For i As Integer = 1 To 10
str = Int(Rnd() * (i + 1))
Next
TextBox1.Text = str
End Sub
End Class