Public Function oborudovanie()
        ds1 = New DataSet
        strSQL = "SELECT * FROM (kas2007) WHERE (((kas2007.kod)=" & f2.TextBox6.Text & "))"
        Try
            Comm = New OleDb.OleDbCommand(strSQL, AccessConnection)
            Comm.Connection = AccessConnection
            ad1 = New OleDb.OleDbDataAdapter
            ad1.SelectCommand = Comm
            ad1.Fill(ds1, "kas2007")
            f2.DG_Oborud.DataSource = ds1
        Catch ex As Exception
            MsgBox("ошибочка - >" & ex.Message)
        Finally
            otsoedinit()
        End Try
    End Function