Public Sub get_sql_data_to_dataset(ByVal tableName As String, Optional ByVal _
   SQL_Statement As String = Nothing)
        Try
            If sql_KanBan.State <> ConnectionState.Open Then
                sql_KanBan.Open()
            End If
 
            Dim SQL As String
 
 
            If SQL_Statement Is Nothing Then
 
                SQL = "Select * from " & tableName
 
            Else
 
                SQL = SQL_Statement
                If SQL_dataset.Tables.Contains(tableName) = True Then
 
                    SQL_dataset.Tables(tableName).Clear()
 
                End If
            End If
 
            Dim sql_command As SqlCommand = New SqlCommand(SQL)
 
            sql_command.CommandType = CommandType.Text
            sql_command.Connection = sql_KanBan
 
 
 
            SQL_Adapter.AcceptChangesDuringFill = True
 
            SQL_Adapter.SelectCommand = sql_command
            SQL_Adapter.FillSchema(SQL_dataset, SchemaType.Mapped, tableName)
            SQL_Adapter.Fill(SQL_dataset, tableName)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub