Dim rs As New SqlConnection
rs.ConnectionString = rsConn
rs.Open()
Dim objcmd As New SqlDataAdapter("select * from kinds", rs)
Dim ds As New DataSet
objcmd.Fill(ds, "kinds")
Me.ComboBox1.DataSource = ds.Tables("kinds")
Me.ComboBox1.DisplayMember = "name".Trim
rs.Close()