Public prnt As frm_login
 
    Private Sub frm_best_arzt_neu_Load(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles MyBase.Load
        ds_best_arzt.Clear()
        prnt.ODA_stat.Fill(DS_best_arzt.STAT)
        prnt.ODA_r_list.Fill(DS_best_arzt.R_LIST)
        prnt.ODA_dokt.Fill(DS_best_arzt.DOKT)
        prnt.ODA_bestellung.Fill(DS_best_arzt.BESTELLUNG)
    End Sub