Private Sub XpB1_Click()
        rs.Source = "Select*from Autocar"
        rs.Open
If rs.BOF Then rs.MoveFirst
If rs.EOF Then rs.MoveLast
    For i = 0 To rs.AbsolutePosition + 1
    frmPetrol.Text18.Text = Adodc1.Recordset.Fields("Марка_автомобиля")
    frmPetrol.Text19.Text = Adodc1.Recordset.Fields("Гос_номер")
    frmPetrol.Text15.Text = Adodc1.Recordset.Fields("Расход_топлива")
Next i
End Sub

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

            For Each DataGridViewRow In dgridAvtomobil.Rows
            If dgridAvtomobil.CurrentRow.ToString = dgridAvtomobil.SelectedCells.ToString Then
                frmPutlist.txtMarka_avto.Text = dgridAvtomobil.CurrentRow.Cells.ToString
            End If
        Next
  End Sub

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To AutocarDataSetBindingSource.Position
            frmPutlist.txtMarka_avto.Text = AutocarDataSet.tblAutocar(i).Марка_автомобиля
        Next i
    End Sub

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To dgridAvtomobil.CurrentRow.Index.ToString
            frmPutlist.txtMarka_avto.Text = AutocarDataSet.tblAutocar(i).Марка_автомобиля
            frmPutlist.txtNomer_avto.Text = AutocarDataSet.tblAutocar(i).Гос_номер
            frmPutlist.txtNorma_rash.Text = AutocarDataSet.tblAutocar(i).Расход_топлива
        Next (i)
    End Sub