1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
Dunkel cn som nya SqlConnection (My.Settings.Conn_DB) cn. Öppna () 'DataAdapter ska öppet anslutningen, så som denna inte är nödvändig. Dunkla SqlAttr som nya SqlDataAdapter Dunkel ds som ny DataSet Dunkel sqlcmd som nya SqlCommand Med sqlcmd . Anslutning = cn .CommandType = CommandType.StoredProcedure .CommandText = sql Avsluta med SqlAttr.SelectCommand = sqlcmd SqlAttr.Fill (ds)