Private Sub Form_Load()
 
   Call g_ConOpen
 
   With rs
      rs.CursorLocation = adUseClient
      rs.Open "SELECT * FROM User", con, adOpenDynamic, adLockOptimistic
   End With
 
   Set Me.dbgrdMA.DataSource = rs
 
   Me.dbgrdMA.Columns(0).Width = 1000
   Me.dbgrdMA.Columns(1).Width = 1400
   Me.dbgrdMA.Columns(2).Width = 1000
   Me.dbgrdMA.Columns(3).Width = 1400
   Me.dbgrdMA.Columns(4).Width = 1400
   Me.dbgrdMA.Columns(5).Width = 1000
 
   Me.dbgrdMA.Refresh
 
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control